﻿Imports SuporteService
Imports SuporteModel
Public Class frmSenha
    Inherits DevExpress.XtraEditors.XtraForm

    Private usuarioService As New SuporteService.UsuarioService

    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click

        If Not usuarioService.Login(txtUsuario.Text, txtSenha.Text) Is Nothing Then
            Dim frmPrincipal As New frmPrincipal
            frmPrincipal.Show()
            Me.Finalize()
        Else

        End If

    End Sub

End Class
